
########################
### Table 3 ############
########################
t3_m1 <- lm(supp_dem2 ~ unauthorised*violent + age + gender +education, data = dat)
t3_m2 <- lm(supp_dem2 ~ unauthorised*arrest + age + gender +education, data = dat)
t3_m3 <- lm(part_dummy2 ~ unauthorised*violent + age + gender +education, data = dat)
t3_m4 <- lm(part_dummy2 ~ unauthorised*arrest + age + gender +education, data = dat)

stargazer (t3_m1, t3_m2, t3_m3, t3_m4, digits=3)
